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-* * 
;* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
;* DIGITAL EQUIPMENT _GORPORATION, MAYNARD, MASSACHUSETTS. * 
ALL RIGHTS RESERV 9 
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3 SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
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:* a 
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~SBTTL PROGRAM DESCRIPTION 
FACILITY 
SYSTEM DUMP ANALYZER 
ABSTRACT 
THIS PROGRAM A 
SH_AND T 


INTERROGATE Th 
ENVIRONMENT 

NATIVE MODE, USER MODE 
AUTHOR 

TIM HALVORSEN, JULY 1978 
MODIFIED BY 


v03-012 EMB0104 Ellen M. Batbouta Ore n-1984 
Increase the oo of the LIST_BUFFER from 1 3 (for a 
single Line) to 300 since the Line of output may overflow 
onto the next Lines. Change the version number from v3.0 
to v4.0 (which is ereph exe as part of the heading when 
the output is sent to a file). 


V03-011 EMD0094 Ellen M. Dusseault 02-May-1984 
Save registers to preserve contents at the entrance of 
the routine PAGE_WAIT. The instructions which destroy 
the registers are two movc35 instructions. 


v03-010 TMKO0002 Todd M. Katz 24-Ap-1984 
Modify the routine PAGE_WAIT to save the contents of the input 
buffer before prompting for a command. If the user simply hits 
‘RETURN’ to the prompt, then the command which as in progress 
when end-of-page was encountered is returned to the input buffer 
before the command is allowed to continue, This ghenge will 
allow any descriptors of the information in the input buffer to 
describe the same information both before and after the 
end-of-page was encountered. 


This fixes the SHOW POOL/TYPE= problem. This command sets up a 
descriptor of the block type requested with the buffer address 
pointing into the nput uffer. When the first end-9! pace is 
encountered during the d sPiay of Rlogk of the specified type, 
the retrieval of the users ‘RETURN’, indicating that the current 
SHOW POOL command should be continued, wipes out the block type 
within the nput buffer iret the descriptor was refering to. 
This results in an inability to display more than a screen's 
worth of pool whenever a block type is explicitly specified. 
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v03-009 JLV0329 Jake VanNo 27-F EB-1984 
Fix bug in *C handling that resulted in RMS-F-BUSY errors. 
v03-008 ROW0237 Ralph 0. Weber 22-0C€T-1983 


Correct sub-heading output to only take character count from 
first word of descriptor, not first longword. d 
PRINT_COLUMNS a table-driven, generalized ‘‘produce displays in 


columns’’ routine. 

v03-007 JLV0303 Jake VanNoy 22-AUG-1983 
Remove one argument from call to SMGSREAD_COMPOSED_LINE 
to track change to this RTL routine. 

v03-006 JLV0281 Jake VanNoy 27-JUL-1983 
Change name of init file. 

v03-005 JLV0260 Jake VanNoy 3-MAY-1983 
Add key input. Remove use of RMS for SYSSINPUT. Replace 
use of SCRSSCREEN_INFO with a cali to S$GETDVI. 


V03-004 TMK0001 Todd M. Katz 21-Mar-1983 
Add the descriptor LOG_FILE, the RMS control blocks 
LOGFAB LOGRAB and LOGNAM, and the action routines OPEN_LOG 
and CLOSE_LOG so that interactive sessions maybe logge , 
Also modify PUT_LINE so that all Lines written to the terminal 
are also logged to the log file when logging is enabled. 


V03-003 CWH1002 CW Hobbs 13-Mar-1983 
Reduce the prompt region at the bottom of a screen to 
three Lines so that an extra Line in SHOW PROCESS can 
be displayed without a page wrap. Also changed a couple 
of references to the prompt region to use the symbol 

PROMPT_LINES rather than a constant. 


JLVO223 Jake VanNoy 21-JAN-1983 

Add assigning a channel to terminal and establish 

a “C handler to exit current command. 

v03-001 KTA0093 Kerbey T. Altmann 05-Apr-1982 
Modifications to allow PAGEFILE.SYS to be a dumpfile. 

Also use SYSS$LP_LINES to calculate page size. 


rettne rrttee 


if ANALYZE was invoked via DCL; 
en 
it /SYMBOLS is present and nonbLank; 
en 
Use the value of /SYMBOLS (e.g. directory spec); 
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Else 
Use a default of SYSSSYSTEM: ; 
Et Endif; 
se 
End Use the directory that the dump file came from; 
*tte-tt ” “ Rte-<-tt 
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v006 


v005 


v004 


v003 


AX/VMS Macro V04 
SDA.SRCIMAIN.MAR 


Change all CMPW's referencing an MSG$_ symbol to CMPL's. 
Change default addressing to longword. 

Remove references to SSDAMSGDEF macro. 

Remove old Help file FAB and RAB. 


Tim Halvorsen 
aken on ...'' message if 


1986 93:38:85 


Do not show ‘Dump 
analyzing the running system. 


0005 Tim Halvorsen 
Add indirect FABs and . 
from terminal driver, as upcas 
command parser now. 


© not request upcasing 
will be done_b 
n number to 3. 


Tim Halvorsen 


81 
m to be invoked via new ANALZYE/SYSTEM 
SH_DUMP DCL commands. 


000 Ti Sep-1980 
Change reference to SCRSINFO to SCRSSCREEN_INFO. 
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-000 


0000 
00000004 
0000000C 
00000014 
00000018 
0000001C 
00000000 
00000024 ° 
00000003 S 
00000028 ; 


0000002C 


00000018 
00000034" 
0000004C 
0000004D 


0000004E 


00000200 
00000050 
00000250 


CURRENT_SYSTEM:: 
-BLKL 1 
PAGE _NUMBER: : 
~BLKL 
LINE COUNT: : 
- LONG 
HEADING_LINES: 
-BLKL 


PROMPT_LINES = 3 


PAGE _SIZE:: 
-BLKL 1 


CLR_PAGE : 
.BLKL 1 


CURRENT_TIME: 
.LONG 24 
“LONG TIME_BUFFER 
TIME _BUFFER: 
-BLKB 24 
CTRLC_PENDING: 
.BLKB. 1 
~"" {BLKB 
.PSECT BUFFERS,NOEXE,WRT 
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PUT_BUF_LEN == 80 
PUT~BUFFER: : 
INPUT_BUF _LEN 
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.SBTTL STORAGE DEFINITIONS 

: READ/WRITE STORAGE DEFINITIONS 

.PSECT SDADATA,NOEXE ,WRT LONG 

— ae ; DESCRIBES SYSTEM VERSION 
tectece Te 1 ; LOG FILE NAME DESCRIPTOR 
diehiadie t 1 ; OUTPUT FILE NAME DESCRIPTOR 


TRUE IF EXAMINING CURRENT SYSTEM 
CURRENT PAGE NUMBER 
LINES FOR CURRENT PAGE 


LINES USED FOR PAGE HEADING 
NO. LINES USED FOR PAGE_WAIT 


MAX. LINES/PAGE 

zeroed to prevent clearing page 
CURRENT DATE AND TIME 

ONLY GET FIRST 24 CHARS 

*C pending flag 


$PUT busy flag 
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46 SAVE_INPUT_BUFFER: 
000002A0 3 i “_,BCKB  INPUT_BUF_LEN 
A 48 SAVE_INPUT LEN: 
00000000 A 49 oie eat N 
00000000 rt : input put eoN® 0 
9000050 OA ae INPUT_BUF_LEN ; Descriptor for input buff 
§0000900" A 4 “ADDRESS INPUT~BUFFER went Figen a 
B 2 DUMP_HEADER: : 
90000600 B DUMP“HEADER LEN == 3*512 : 3 BLOCKS 
0 B 38 .BLRB  DUMP_HEADER_LEN 
60 LINE_DESCR:: 
0000012c' eB0 61 -"" LONG  LIST_BUFFER_LEN 
00000858' 884 6¢ — aur tEon® LIST BUFFER 
0000012¢ abs 64 LISTBUFFER_LEN = 300 
0000094 888 65 -BLRB-LIST_BUFFER_LEN 
O9e4 86 CMND_DESCR: : ; OUTPUT BUFFER DESCRIPTOR 
00000050" 0964 268 .LONG  CMND_BUFFER_LEN 
000009EC' es $9 shat aur gEoNe CMND “BUFFER 
00000050 O9EC 271 CMND-BUFFER LEN == 80 
00000A3C 9 ‘ rg -BLRB  CMND_BUFFER_LEN 
00000000 OA3C 274 STB_BUFFER==BUFFER : OVERLAP MISC. BUFFER 
00000200 A ¢ t3 STB-BUFFER_LEN = 512 
A3C 6 HELP_BUFFER: 
00000050 Oa3C 28 HELP~BUFFER_LEN = 80 
00000A8C A c £9 -BLRB -HELP_BUFFER_LEN 
ABC 1 REPEAT_KEY:: 
30 50 4B 00000A94'010EG000' Aes § ereesai” /KPO/ ; Default ‘repeat’ key 
00000000 abe : eeyTaBLe Teen 0 ; Screen input routine storage 
00000000 AB fi cnan: oN 0 
00000000 Ag : te pa 0 ; TERMINAL CHANNEL IF SYSSINPUT IS TRM 
00000000 mS $9 =f .LONG 0 :; address of prompt loaded here 
AAT 3 DVI_ITMLST: 
000A 9004 AA? 29 -WORD 4,DVI$_DEVDEPEND 
00000000 00000ADB' AA 34 : DVI_DEVDEPEND , 0 : GETDVI FOR DEVDEPEND 
001¢ 9004 ss $6 .WORD  4,DVI$_DEVDEPEND2 
00000000 OOGO0ADF ' AB? -LONG DVI_DEQDEPND2,0 : GETDVI FOR DEVDEPEND 2 
0 04 OABF 29 .WORD 4,DVI$_DEVBUFSIZ 
00000000 taetntee ACs 1 “LONG DVI_DEQBUFSIZ, 
0002 0004 OACB .WORD 4,DVI$_DEVCHAR 


00000000 O0000AE7" QACF 
00000000 Ay 


QOOOOADE QADB 

00 QADE 
00000000 4 
00000000 ne 
00000000 QAE?7 
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TIONS 


- LONG 
» LONG 


dvI eine We 
DVI PAGES ITE: 
DVI_DEVDEPND2: 
Dv! -peveit Siz: 
DVI _DEVCHARS Rie 
. LONG 


DUMPF : 


DUMPN: 


»PSECT 
: SFAB 


SNAM 


DUMP _E XPNAME : 
-BLKB 


DUMPR: 


SAVDMPF : 


SAVDMP: : 


LISTF: 


LIST:: 


: SRAB 


SFAB 


$SRAB 


$FAB 


$SRAB 


“SEP=1 
DVI_DEVCHAR ,0 
0 
3 
0 
0 
0 
0 


RMSBLOCKS ,NOEXE ,WRT, LONG 
DNM=<SYSDUMP.DMP>, = 
NAM=DUMPN 

FAC=<B10, NET 
ESA=DUMP_EXPNAME , = 
ESS=NAMSC_MAXRSS 

NAMSC_MAXRSS 


ROP=BIO, < 


OP=B10 


BKT= 
UBF =DUMP HEADER, 
USZ=DUMP_HEADER_ LEN 


DNM=<.DMP>,- 
OP=SUP,= 
FAC=<B10,PUT>,= 
RFM=FIX,- 
MRS=512 
FAB=SAVDMPF , = 
ROP=B10 


FAC=<PUT,UPD>, - 
mei .LIS>,- 


FAB=LISTF, = 
MBF=2, = 
mBC=16 
RACSSEQ, = 

RBF= ISf_BUFFER, - 
UBF=LIST_BUFFER, - 


n 8 
NALY ZER MAIN PROGRAM 1 ~$EP-1984 01:32:28 AX/VMS Macro v04-00 Page &, MA 


SDA.SRCIJMAIN.MAR; 


i; End of List 


Bete 


High byte of DEVDEPEND is page size 


ADDRESS OF NAM BLOCK 
BLOCK 1/0 


EXPANDED NAME STRING BUFFER 
LENGTH OF BUFFER 


EXPANDED NAME STRING 


STRING 
MOLD VERSION ON CREATE 


RMAT IS FIXED 
RECORDS 
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oom 
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mwaso 
3°75 


Be Sone, 


; ADDRESS OF FAB BLOCK 
; BLOCK 1/0 ACCESS 


Sete te te Ge Ge 


PUT/UPDATE 
DEFAULT NAME STR 
MAX! RECOR 


USZ=INPUT~BUF _LEN 
OUTPUTF: SFAB FNM=<SYSSOUTPUT>, ~ 

RAT=C : EACH LINE NEEDS LF/CR 

FAC=PUT : PUT OPERATIONS ONLY 
OUTPUT:: $RAB FAB=OUTPUTF 

UBF =CMND_BUFF FER OUTPUT BUFFER 

USZ=CMND~BUFFER “LEN : OUTPUT BUFFER LENGTH 


STBF:: $FAB FNM=<SYS.STB;0>, - 


BUFFER LENGTH 
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d7 60 USZ=LIST_BUFFER_LEN, - ; BUFFER LENGTH 
b? ROP=WBH t WRITE BEHIND (DOUBLE BUFFER) 
18 és LISTN: SNAM  ESS=NAMSC_MAXRSS : MAXIMUM EXPANDED SIZE 
7B 365 LOGFAB::$FAB : PUT OPERATIONS 
7B 66 bin=<S1SOUNP. .LOG>,- : DEFAULT NAME STRING 
7B 36 + MAXIMUM RECORD SIZE 
7B 368 ORG=SEQ,_ - + SEQUENTIAL ORGANIZATION 
7B 69 RAT=CR + CR CARRIAGE CONTR 
7B 0 M=VAR,= : FIXED LENGTH OE CORDS 
% a1 NAM=LOGHAM : ADDRESS OF NAM BLOCK 
3 ig LOGRAB: : $RAB FABs B=LOGFAB, - 
03 74 ; DOUBLE BUFFERED 
03 75 mBc=16 - + 16 BLOCKS AT A TIME 
0 06 RAC=SEQ, = + SEQUENTIAL ACCESS 
03 a ROP=WBH : WRITE BEHIND (DOUBLE BUFFER) 
04 379 LOGNAM: $NAM = ESS=NAMSC_MAXRSS : MAXIMUM EXPANDED SIZE 
04 HF INDFAB: $FAB —s«FAC=GET,- ; READ OPERATIONS 
04 Be DNM=<. COM> + DEFAULT NAME STRING 
04 84 INDRAB:: $RAB  FAB=INDFAB,- : ADDRESS OF FAB 
04 85 UBF =INPUT_BUFFER,- : ADDRESS OF INPUT BUFFER 
04 86 USZ=INPUT~BUF _LEN + BUFFER LENGTH 
05 88 KEYFAB: $FAB  —«FAC=G : READ OPERATIONS 
05 89 ENaceYESLOGIN: :SDA.INIT> =; FIL 
09 90 DNM=<SDA$INIT> : DEFAULT NAME STRING 
05 3¢ KEYRAB:: $RAB  FAB=KEYFAB,- : ADDRESS OF FAB 
3 5 UBF =INPUT_BUFFER,- + ADDRESS OF INPUT BUFFER 
5 95 
5 96 
5 97 
5 98 
5 399 
5 400 
5 401 
5 402 
6 4 
6 404 
6 405 
6 406 
6 407 
6 4 8 
6 4 
410 
411 
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FAC=GET : GET OPERATIONS ONLY 
STB:: SRAB fF AB=STBF 
UBF=STB_ BUFFER ; BUFFER ADDRESS 
67 USZ=$1B~BUFFER LEN : BUFFER LENGTH 
0000000 .PSECT MAIN, EXE,NOWRT,LONG 
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4D 45 54 53 59 53 00000008'010E0000' 
SF 48 53 41 52 43 watt Big ws i 
50 4D 44 


46 SF 50 4D 55 44 00000028'010E0000' 
45 4C 49 


4C 4F 42 4D 59 53 seaetetteiliidebtanes : § 


72 65 74 6E 45 OA 00000048'010E0000' 
6D 75 64 20 66 6F 20 65 6D 61 6E 20 
20 3 20 65 6C 69 66 20 70 

20 3E€ 41 44 53 0A 00000068'010E0000" 
59 53 24 53 59 53 00000079'010E0000' 
3A 4D 45 54 53 

50 55 54 52 41 54 53 

00000007 

4E 49 24 53 59 53 00000093'010E0000' 
54 55 50 
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*CRASH_DUMP' 
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13 5 
16 ; 
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19 SYSTEM_EN 
$c 
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. * sDUMP_FILE® 
SYMBOLS_E 
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Tl 
AS 
IT 
AS 
DUMPF ILE_EN 
AS 
NT 
AS 
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A 
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4 
4 
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4 *SYMBOLS* 
4 

4 
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CON OU FW B—OOONOUSw 


DEV_PROMPT: 
-ASCID <10>"Enter name of dump file > ' 


SDA_PROMPT : 
-ASCID <10>"SDA> ' 


SYSSSYSTEM: 
-ASCID 'SYS$SYSTEM:* 

STARTUP: 
ASCII 

STARTUP_LEN = 


SYSINPUT: 
-ASCID /SYSSINPUT/ : 


*STARTUP' 
- = STARTUP 


; NAME OF STARTUP PROCESS 
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v04-000 MAIN PROGRAM gree bbe 83:33:88 SDA. SRCJMAIN.MAR; 1 . (5) v0+ 
9c oe .SBTTL MAIN PROGRAM 
33 rk 3 START = MAIN PROGRAM ENTRY POINT 
9¢ 448 ; CALL INITIALIZATION ROUTINES AND FORMAT THE SYSTEM DUMP 
9C «449 ; BY CALLING THE INDIVIDUAL FORMATTING ROUTINES ONE AT A 
09c 450; TIME. 
09C 451 ;--- 
44) £26 
9¢ 45 -ENABL LSB 
09¢ 454 
0204 o9¢ 439 .ENTRY START, “M<R2,R9> 
6D O0000000'EF  9€ OE 439 MOVAB HANDLER, (FP) ; INITIALIZE CONDITION HANDLER 
O1E4'CF 00 FB OOAS 458 CALLS #0,W*OPEN FILES : OPEN INPUT/OUTPUT FILES 
QOOOOO00'EF 00 FB OOAA 459 CALLS #0,MAP_DUMP ; MAP DUMP INTO VIRTUAL MEMORY 
00000000'EF 00 FB 00B1 460 CALLS #0,REAB_ SYMBOLS ; READ SYSTEM SYMBOL T 
OOO00000'EF 00 FB OO0BB 461 CALLS #0,GET_BUMP_INFO ; GET DUMP FILE INFORMATION 
0584'CF 00 FB O0BF 462 CALLS #0,W*ERIT_IF_OLD : IF OLD DUMP AT STARTUP TIME 
00Ck 464 SKIP — PAGE ; ERASE SCREEN 
OF 00000014"EF €9 O0CB 465 BLBC URRENT_SYSTEM, 3$ ; BRANCH IF ANALYZING A DUMP 
00D2 466 PRINT <VAX/UMS System analyzer> 
OODF 467; PUSHL #6 
OODF 468; PRINT 1,<!17%D> 
70 11 OODF 469 BRB a$ 
00E1 470 
QOE1 471 3$: PRINT »<VAX/VMS System dump analyzer> 
QOEE t7¢ PRINT <> 
59 O0000000'EF 00 OOr8 47 MOVL — ERLPTR,R9 ; ADDRESS OF ERROR LOG ENTRY 
0102 474 SASCTIM_S TIMADR=EMBSQ_CR_TIME(R9) , TIMBUF =CURRENT_TIME 
OooooO2c'EF 7F 0116 475 PUSHAQ ~CURRENT_TIME 
011C 476 PRINT -sDump taken on !AS> 
50 OOF4 C9 FD 8F 78 0129 477 ASHL  #-3,EMBSL_CR_CODE(R9) ,RO ; MESSAGE NUMBER 
F 13 0130 478 BEQL : BRANCH IF NO MESSAGE 
51 QO000000'EF 9€ a135 479 - MOVAB BUGST_MESSAGES,R1 ; ADDRESS OF MESSAGES 
52 81 9A ot 9 481 MOVZBL (R1)+,R2 : LENGTH OF MESSAGE 
51 52 CO 13¢ 4 é ADDL RI ; SKIP TO NEXT MESSAGE 
F750 «=O F5) «(O13F OG SOBGTR RO,5$ + LOOP UNTIL FOUND 
51 DD 0142 484 PUSHL 1 ; ADDRESS OF BUGCHECK MESSAGE 
0144 485 PRINT 1,<!AC> 
181 4 $ 8$: 
O13 4 , PRINT 0,<> : BLANK LINE 
13 $83 : SET CURRENT PROCESS = PROCESS THAT CRASHED 
00000000'EF 00 FB 136 491 CALLS #0,CURPROC : SET TO CURRENT PROCESS 
165 438 : PROCESS SDAINI FILE 
00000000'EF oD 188 495 TSTL JNPUT RAB ; SEE IF SDAINI FOUND 
16 «1 168 496 ‘ain BEQL 0$ : NOT IF ZERO 
OOOOOIC'EF 04 16 498 CLRL LINE COUNT : AVOID END OF PAGE PROMPTS 
00000000 ' EF 0 F 1 499 CALLS @# + GET _COMMANDS : ACCEPT AND EXECUTE COMMANDS 
FO £ 17A = 00 BLBS _—RO, 108 ; CONTINUE UNTIL ERR 
| 
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CLRL —sINPUT_RAB 
ACCEPT COMMANDS UNTIL END OF FILE 


MOVL  #1,CLR_PAGE ; 
CLRL LINE COUNT : 
CALLS @ GET COMMANDS ; 
CMPL RO, #MSG$_EOF ; 
BEQL «ss 5 " ; 
CMPL RO, #MSG$_EXITCMD ; 
BNEQ 208 : 
CLRQ  § SUB_HEADING ; 
CLRL HEADING ROUTINE 3 
TSTL CCR PAGE ; 
BEQL $ ; 
SKIP PAGE ; 
BRB 20$ 

TSTL OUTPUT_FILE : 
BEQL ; 
CALLS #0,PRINT_INDEX ; 
CALLS #0,MARK_DUMP : 
STATUS SUCCESS 


-DSABL LSB 


ieee 


SrSEP=1986 05:38:59 ESDAVSRCIRAIN.MARs] eet 


; CLEAR SDAINI RAB 


PAGE ON MSG$ Saaee 
END OF PAGE PROM 
T AND ead COMMANDS 
IF END OF FILE 


IF SO 
Wir A LEVEL? 


i | 


ERASE PREVIOUS JUNK 


pau fe preeir cept 
PRINT TABLE OF CONTENTS 


MARK DUMP ANALYZED 


F 9 
+ AIN SYSTEM DUMP ANALYZER MAIN PROGRAM 16-SEP- aba ch Macro Vv04-00 Pa 
-000 OPEN_FILES = OPEN INPUT/OUTPUT FILES mies 7 83: 35: 88 SDA.S Bc Haste Mares - 
itt 0 ; -SBTTL OPEN_FILES = OPEN INPUT/OUTPUT FILES 
JE : OPEN_FILES 
1E4 , ; THE FOLLOWING FILES WILL BE OPENED: 
164 : : - SYSTEM DUMP FILE (SYSDUNP DMP) 
1E4 3 - SYSTEM SYMBOL TABLE (SYS.STB) 
ie 3 ; - COMMAND FILE FOR RUN-TIME OPTIONS 
Hee 
007C ite 2S ENTRY OPEN_FILES,*M<R2,R3,R4,R5,R6> 
01E6 44 : Use screen management routines for input. 
Ole 22 ; RMS will be used by the RTL in SYSSINPUT is a file. 
oo0dsd? ft oF O1E6 7 pushab SYSINeUT ; SYSSINPUT 
usha 
00000000'GF 02 FB pire ‘8 Salis 13 Go SNGSCREATE. VIRTUAL heissgeere 3; create (open) keyboard 
835 229 SIGNAL 
OQOOOOA9B'EF OF $303 a26 pushab keytable keypad table 
00000000'GF 01 FB 0209 55 calls #1,G*SMGSCREATE_KEY _TABLE ; ; create keypad table 
0 1? a2 SIGNAL 
8 if 536 : Try to open a file defined by the logical name 77? SDASKEYPAD 777? 
O21¢ 558 $oPEN KEVEAB : try o 
18 50 €9 0229 223 BLBC : sake thus if error 
O22c 560 SCONNECT ReLYRAS : try connect 
0° 50 €9 0239 561 BLBC 3; continue if err 
00000000" EF 00000553'EF 9E 0 i$ 206 MOVAB KEYRAB, INPUT_RAB 3 make it look ike. this 
psee a7 108 j was an ‘‘afilespec' 
0247 age " - $CREATE OUTPUTF : OPEN OUTPUT FILE 
0254 286 IGNAL RMS,OUTPUTF 
026A 56 SCONNECT OUTPUT 
0 ia 369 SIGNAL RMS, OUTPUT 
4 % SGETDVI_S DEVNAM = SYSINPUT,- 
028) 71 “ITMLST = DVI I TMLST ; GET DEVICE DEPENDENT INFO 
4 ie SIGNAL 
50 QOO00ADE'EF SA Be 74 thy DVI_PAGESIZE,R GET PAGE SIZE 
00000024 ‘EF 50 03 C3 af fe SUBL #PROMPT LINES, Ro. PAGE _stie 3; SET PAGE SIZE 
06 OOO0O0AE7'EF 02 €0 C4 8 BBS #DEVSV_TRM,DVI_DEVCHAR ,40$ 
OOOOOADB'EF D4 O02C 28 CLRL DVI_DEVDEPEND ; Clear if not terminal 
; 4 40$: 
D 1 : If the command Line entities SYSTEM or CRASH DUMP are defined 
D § 3 and ‘‘present’’, initialize as ‘current system” or dump file 
4 ? : ponsert ively. 
56 D4 02D - clrl 6 rset DCL flag = ALSE. 
ae. ee ® D4 6 subl bc l{Sc_reqdesc.sp ; Allocate old ct int request block 


“ $s "80006600" 
6€ 


eeeeeeedieal 
00' 8F 68 
0O'SF 03 


FMowvioma 


FCF 
00000000 ' GF 


FC 
00000000 ° GF 


“Ss TW 
> “eo De W@W 


MO NMNOOMOOWOO COPY 


om smrmo—-"Oo—-"oOo-™" S22 SCKCTS 


FC 
00000000 ' GF 


Ww 


03 AE 


FCE9 CF 
00000000 ' GF 


34 AS 6E 
2c AS (04 ae 


E 
03 AE 02 


FCDB CF 
G0000000'GF 02 


5601 
0070 


50 


QOOOOAAS'EF  FCD7 CF 


o 
wf 


CBee tees Oe 
oO 
ad 


BEE PANAMA AMIGMPDPINININININININD 2 = 8 OP I | MQDOOCOOCOOCOOCOCOCWOOOOOOOOO 


BO ODNA NEW 9 OD NAME WIN 9 OD NOAU EWIDO OD NAUE WN CO OONOUES WOOO 


PDQ APAAA AA AA AA AA AAA AAA AAAAAAAAAAAA AAA AAA A AAO 


6 9 
§ = OPEN INPUT/OUTPOT FILES  SaSEPo1984 OS:35,89 PePaveactaiaemansy. 


moveS #0,(sp),#0,#cli$c_reqdesc,(sp) ; Zero request block 
; address of DUMP FAB 


guse r ; Se 
movb #cl k_getcmd,cli$b_rqtype(sp) ; Set ‘get command’’ request 


pushl 5 ; Push address of request descriptor 
calls #1,g*sys$cli ; Call old CLI interface for ver 
blbc Branch if not a DCL command 


r ; 
cmpb git b_raqstat(sp) ,#cli$k_verb_fore ; Foreign command? 
nch if s 


; Bra 
cmpb Li$b_rqstat(sp) ,A@cli$k_verb_mcr ; or MCR command? 
80s ’ Z ; Branch if so 


pushab system gotity 
calls # goct $present 
blobs r0,60 


pushab crash_entity 
calls #1,g*cli$present 


Check if /SYSTEM specified 
branch if present 


Check if /CRASH 
rd, branch if absent 

pushab dumpfile_entity 

calls #}.ggt iSpresent 

bl r0,80$ 


Check if dump fi 

Branch if absent 
-(sp) ; Recieve buffer descriptor 

movb #dsc$k_class_d,dsc$b_class(sp) ; Set to dynamic desc. 
sp ; address of return buffer 

pushab dumpfile_entity 

calls #2,g*cliS$get_value 


r0, 
movb (sp), fab$b_ fns(r3) 
set address of filespec 


mov 4(sp), fab$T_fna(r3) 
-(sp ; Recieve buffer descriptor 
movb #dsc$k_class_d,dsc$b_class(sp) ; Set to dynamic desc. 


: Branch if absent 
; set Length of filespec 


pushl = sp ; address of return buffer 

pushab syabols entity zsaddress of a descriptor 

calls #2,g*cli$get_value Check if /SYMBOLS specified and 
; get its value if it was. 

bisb2 #1,r6 zset DCL flag = .TRUE. 

brw 206$ 3; and open dump/stb files 

brb 140$ ; analyze current running system 


Attempt to get file name from foreign command Line 


movab dev_prompt,smg_prompt ; Prompt descriptor 


-(sp) ; Recieve buffer descriptor 
movb #dsc$k_class_d,dsc$b_class(sp) ; Set to dynamic desc. 
pushab dev_prompt ; Address of prompt desc. 


pushab 4(s ; Address of buffer desc. 
calls #2,G*Lib$get_foreign ; Get the command Line 
blbc rd, ; branch if ony error 
movb (sp), fab$b_fns(r3) ; set length of filespec 
movl 4(s5 §, fab$T_fna(r3) ; set address of filespec 
brb 120 ; Process command Line 


> Loop to here to try another dump file prompt 


address of entity descriptor 
address of ote descriptor 
UMP specified 


address of entity descriptor : 
espec presen 
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AX/VMS Macro V04- 90 Page } 


get Apes ; Get one Line of input 
nput_len, fab$b_fns(r3) ; set length of filespec 
input buffer, fab$l_fna(r3); set address of filespec 


CURRENT_SYSTEM PRESET TO rte wt SYS. 
fabsb. fiis(R3) ,#1 MUST BE pete CHAR. 
60$ BRANCH T 


af bSL_fna(R3) ,#*A's' ; SEE CURRENT RUNNING SYSTEM? 
#1, CURRENT_SYSTEM ; EXAMINE CURRENT. SYSTEM 

STBE RG ; SETUP R4 FOR STB CODE 

40$ : OPEN S18 FILE 

RO #RMS$_EOF ; CHECK IF END OF FILE 

180$ ; BRANCH IF NOT 

#STSSK_SEV UST EXIT IMAGE IF EOF 


#STS$V~ SEVERITY, WSTS$S_ siverity. RO 


oR3 ; ESS 
AB BSL ht | fal ; ADDRESS 
ABSB_FNS( I 
20$ ~ 

YS$SYST 
YS$SYST 


: 
$ 
$SY 
$ 


Qa ="nNoo 


°N 
F 
vs eM M+4,FABSL_FNA(R3) ; 


ET FROM SYSSSYSTEM 
Mm, FABSB_ FNS(R3) 


DUM 
F 
F 
2 
SYS 
SYS 
(R ; ATTEMPT TO OPEN THE FILE 


RO, 2408 
FABSL_STV(R3) ,R1 ; SECONDARY ERROR CODE 
2608 AND OUTPUT ERROR MESSAGE 


UNPR 
RO 80 : BRANCH IF SUCCESSFUL 
BUAPRSRABSL._ STV,R1 
NAMSL_ESA(RS) ; DESCRIPTOR OF FILE NAME 
NANSE” ESL(R5) ,-(SP) 
(SP) : PUSH RMS ERROR CODES 

Bc O8} ; ADDRESS OF DESCRIPTOR 

+ NUMBER OF FAO ARGUMEN NTS 
FRSGS_0 NIN + ERROR OPENING INPUT FILE 
RABSB— BES (R2) + ARE WE PROMPT ING FOR FILESPEC? 
80$ ~ : IF Ag EXIT OGRAM ON ANY ERROR 
#STSSK_WARNING, CHANGE “SEVERITY. TO WARNING 
#STS$V~ SEVERITY. ASTSSS _svERITY, (SP) 
#5 Ge ,G*LIBSSIGNAL ; OUTPUT ERROR MESSAGE 

* REMOVE DESCRIPTOR FROM STACK 
1068" ; ALLOW USER TO TRY AGAIN 
STBF R4 
R6, 3208 : INVOKED VIA a 
(SP) :WAS /SY 
340$ » $0 USE S STEM: 
FABSB_FNS(R4) ,FABSB pws (he) MAKE sis STB: O” THE DEFAULT FILE 


NAM BLOCK 
NON-EMPTY STRING 
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YZER MAIN PROGRAM 16-SEP-1984 01:32: AX/VMS Macro V04-00 Page 1 MA 
N INPUT/OUTPUT FILES g- SEE 1382 84:33:88 SDA. SRCJMAIN.MAR; 1 ° tg) vo 
MOVL  FABS -FNACRG) -F ABSL _DNACR4) 
MOVL  4(SP FABSL FNACR4 ;USER SUPPLIED DIRECTORY SPEC 
MOVB {SP , FABSB_FNS(R4) ; TAKEN FROM THE /SYMBOLS QUAL. 
sen BRW SATTEMPT TO OPEN THE FILE 
MOVL NAMSL _ESA(RS) ,FABSL_DNA(R4) ; SET DEFAULT FROM DUMP 
MOVE § NAMSB~ESL(R5) .FABSB_DNS(R4) 
SOPEN (R4) ; OPEN THE STB FILE 
CMPL R09 #RMS$_FNF : CHECK IF STB FILE THERE 
BNEG 380$ : BRANCH IF OK 
340$: MOVL  SYSSSYSTEM+4,FABSL_DNA(R4) : SET TO TRY SYSSSYSTEM 
MOVE § SYSS$SYSTEM,FABSB_DNS(R4) 
O$: SOPEN (R4) ; OPEN THE STB FILE 
308: BLBS R0,400$ : BRANCH IF SUCCESSFUL 
PUSHL FABSL_FNA(R4) + DESCRIPTOR OF FILE NAME 
MOVZBL FABSB-FNS(R4) ,-(SP) 
PUSHL FABSL~STV(R4) ; PUSH RMS SECONDARY STATUS 
PUSHL RO t PUSH RMS PRIMARY STATUS 
PUSHAB 8(SP) t ADDRESS OF DESCRIPTOR 
PUSHL #1 : NUMBER OF FAO ARGUMENTS 
PUSHL #MSG$_OPENIN : ERROR OPENING INPUT FILE 
CALLS #5,G*CIBSSIGNAL : OUTPUT ERROR MESSAG 
ADDL 4#8.SP : REMOVE DESCRIPTOR FROM STACK 


400$: S$CONNECT STB 
SIGNAL RMS,STB 


; SET UP TERMINAL HANDLING IF SYSSINPUT iS A TERMINAL 
7 BBC #DEVSV_TRM,DVI_DEVCHAR,420$ ; EXIT IF NOT TERMINAL 


SASSIGN_S CHAN = TT_CHAN = 
DEVNAM = SYSINPUT ; SYSSINPUT 


BLBC RO,42 ; BRANCH ON ERROR 
$010W_S CHAN = TT_CHAN - 
FUNC = #10$_SETMODE! IOSM_CTRLCAST - 
6208 P1 = CTRL_C_AST 3; AST ROUTINE 
"  movab sda_prompt,smg_prompt 3; Prompt descriptor 
RET 


P ANALYZER MAIN PR GRAN” 


= Get one Line of input joe "gc SEP 1382 §4:33:88 YSDAVSRCIMAIN.MARST — U» vO 


INPUT_BUF = descriptor of input 
INPUT_LEN = Length of input 


+++ 


rf -SBTTL GET_INPUT = Get one Line of input using RTL 
; This routine calls SMGSREAD_COMPOSED_LINE and is provided for 
3; any read to SYSSINPUT. 
> INPUTS: 
; SMG_PROMPT = loaded with address of prompt to be used. 
: OUTPUTS: 
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GET_INPUT:: 
765 clrl -(SP) 3 Gtophey 5 
76 pushab input_len : input length 
76 pushl smg_prompt ; pre-loaded address of prompt 
pushab input_buf ; input buffer descriptor 


pushab keytable : rn table 
calls #6." SMGSREAD _COMPOSED tine’? ; read file spec 
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3 


08 0000004D'EF 
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0000004C ‘EF 
0000001C ‘EF 
00000028 EF 


UMP yt he MAIN PROGRAM” 


0 Pa 1 MA 
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-SBTTL CTRL_C_AST = Handle Control C AST routine 


t would be nice "er this to be an out of band, rather than a 
‘ 4 Ba. “C enable. This prevents the “Y window. For cigne now  hewauer, 


; an out of band cannot cancel 1/0, so until that work is done... 


re 
7 
? i+ 
ore i : 
77 ; This routine is called as an ast routine yee ye *C (cancel) 
f 9; : is typed. The routine signals MSG$_ +t TCMD and exits. 
fe : OCAP) is zero if called to fake “C. 
t | j~ 
7 c CTRL_C_AST: 
0000 4 8 -WORD 0 
D 790 TSTL (AP) 3; test for fake “*C 
1 18) BEQL 10$ 3 no need to re-enable “C 
£38 i 
794 
a6 


ono 


$Q10W_S coe = TTC 
= #108. §SETMODE! 10h, oar 


: 
0 7 
0 £38 
9 44 pane oC tree T ROUTINE 
8 4 ; If a SPUT is active, eth flag “C pending 
9 88 ' BLBC PUT_BUSY,10$ ; branch if ok to signal 
0 04 MOVB #i,CTRLC, PENDING 3; set fla 
04 B2 ET 3: and exi 
94 $9 10S: CLRB CTRLC PENDING 3 CLEAR PENDING FLAG 
D4 05 38 CLRL LIN € Cou ; CLEAR SO NO CONTINUE PROMPT 
D4 0598 0 CLRL gis ; CLEAR TO AVOID PAGE ERASE 
Sal 10 SIGNAL Pitt 3 EXIT MESSAGE 
04 0583 811 RET 3 RET 
0584 812 
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MAIN SYSTEM DUMP ANALYZER MAIN PROGRAM 16-SEP-1984 01:32: AX/VMS Macro V04-00 P 
v04-000 EXIT_IF_OLD = EXIT IF OLD DUMP AT STARTU met) 7 84: 35:¢8 ODA ERCIMATW MARS 
Bs 1 .SBTTL EXIT_IF_OLD = EXIT IF OLD DUMP AT STARTUP TIME 
BG 816: 
B4 i$ : THIS ROUTINE WILL EXIT THE PROGRAM IF WE ARE CALLED 
B4 18 : FROM STARTUP.COM AT BOOT TIME AND IF THE DUMP HAS 
584 19: ALREADY BEEN ANALYZED. OPERATOR SHUTDOWN CRASHES 
B4 0; ARE ALSO IGNORED AS THEY DO NOT CONSTITUTE A REAL 
584 13 CRASH. 
384 § : INPUTS: 
5B4 5: DUMP_HEADER CONTAINS THE DUMP HEADER BLOCKS 
584 g ; ERLPTR CONTAINS A POINTER TO THE ERROR LOG ENTRY 
0584 8 : OUTPUTS: 
bab 0; NONE 
5B4 13 
an 
0004 0584 4 .ENTRY EXIT_IF_OLD,*M<R2> 
bepe RSG 
0586 637 : CHECK IF WE ARE IN SYSTEM STARTUP PROCEDURE 
0386 B30? 
5B6 0-840 ALLOC 15,R2 ; ALLOCATE 15 BYTE BUFFER 
7E D4 05C0 841 CLRL. 0s = ( §P) : CREATE GETJPI REQUEST LIST 
DD 05¢ BAe PUSHL R2 : ADDRESS TO RECEIVE LENGTH 
04 A2 DD 05¢4 84 PUSHL  4(R2) : ADDRESS OF OUTPUT BUFFER 
031 000F a DD O5¢7 B44 PUSHL #<JPIS_PRCNAMA16>!15 : REQUEST CODE AND BUFLTH 
He 846 SGETJPI_S {TMLST=(R1) : GET NAME OF THIS PROCESS 
FASC CF 07 20 0482 62 2D OS5EF He CMPCS (R2),@4(R2),#*A" *, #STARTUP_LEN, STARTUP 
36 12 O5F8 849 BNEQ 90% : BRANCH IF NOT STARTUP TIME 
aA ORS 
SFA 3 : EXIT IF DUMP HAS ALREADY BEEN ANALYZED OR IS EMPTY 
03 B3 O5FA 854° BITW  #<<1aDMP$V_OLDDUMP> ! <1aDMP$V_EMPTY>>,- 
00000284 ' EF SFC | 855 DUMP_HEADER*DMPSL_FLAGS 
16 12 0601 36 BNEQ 208 
$0 2% 
6 33 ; .e. OR IF OPERATOR SHUTDOWN 
51 Q00000000°EF 00 $9 61° MOVL. ERLPTR,R1 ; ADDRESS OF ERROR LOG ENTRY 
51 00g 1 O7 CB 060A 6¢ BICL3 #7 EMBSL CR CODE(R1),R1 : GET BUGCHECK CODE OF CRASH 
00000000'S8F 51 01 619 6 CMPL R1, #BUGS OPERATOR : CHECK IF OPERATOR SHUTDOWN 
| eS 617 64 BNEG 908 : BRANCH IF NOT 
19 66 : EXIT THE IMAGE = FLUSH THE REMAINING INPUT COMMANDS 
19 868 20$: 
06 OOOOOAE7"EF 02 £0 619 $3 nes BBS #DEVSV_TRM,DVI_DEVCHAR,40$ ; SKIP IF TERMINAL 


a 9 
D DURPTAT STARTU 'S-SEp=19B4 04:35:59 FeDAveRcTMAIN.MARss” ror th v0 
BSBW get AyPut : Get_input Line 

BLBS RO, 30$ ; CONTINUE UNTIL ALL DATA READ 

SEXIT_S ; EXIT THE IMAGE 


STATUS SUCCESS 
RET 
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: PAGE_WAIT 
; THIS ROUTINE CAUSES AN END-OF=PAGE PROMPT TO BE GIVEN 
; ON THE BOTTOM OF THE SCREEN. THE USER SIMPLY HITS 
; RETURN, HE WILL CONTINUE OUT OF THIS ROUTINE TO PRINT 
; THE NEXT PAGE. IF HE ENTERS SOME OTHER COMMAND, THE 
; CURRENT COMMAND WILL BE ABORTED. 
: INPUTS: 
; IF LINE_COUNT = 0, NO PROMPT WILL BE ISSUED. 
.ENABL LSB 
.ENTRY PAGE_WAIT,“M<R2,R3,R4,R5> 
TSTL  QUTPUT_FILE ; CHECK IF ANY OUTPUT FILE 
BNEQ SKIP IF LISTING FIL 
BBC #TTSV SCOPE. DVI _DEVDEPEND, 58. ; SKIP SCROLLING 
TSTL LINE_COUN :°0 FORCES NO PROMPT 
BNEQ 108 ~ + BRANCH IF PROMPT WANTED 
58: RET 
~~ Ce, cinee i CLEAR BEFORE ANYTHING ELSE 
SKIP LORORPSS UN INES=1> MOVE UP IF SCROLLING 
PUSHL #1 UM 
WOVZBL DVI_PAGESIZE,R GET PAGE SIZE 
SUBL3_ #<PROMPT Lines 1>,R0,- “sh 2ND FROM BCTTOM LINE 
CALLS #2,G*SCRSSET_CURSOR SET CURSOR POSITION 
PRINT Se one RE TORR for aurea 
MOVL_ INPUT_LEN,SAVE_INPUT_LEN; SAVE CURRENT COMMAND LINE LENGTH 
MOVC3 INPUT"LEN, INPUT BUFFER,=; $ save THE CURRENT COMMAND LINE 
SAVE € IN Put 4 vFER : FORE PROMPT ING FOR COMMAND 
CALLS 0.GET ANDS ; CRORE FOR COMMAND 
aa BLBC ROnS : BRANCH IF EMPTY LINE 
ang SIGNAL 0,BACKUP : SILENTLY ABORT COMMAND 
" « CMPL~=—s RO, #MSG$_BACKUP ; ARE WE BACKING UP? 
BEQL ; CONTINUE BACK TO MAIN LEVEL 
CMPL RO, #MSGS_EOF ; CHECK IF END OF FILE (EXIT) 
BeQL 4=s«<15$ : BRANCH IF SO 
CMPL RO, #MSG$_EXITCMD ; ARE WE EXITING COMMAND? 
BEQL : BRANCH IF SO 
MOVE SAVE _INPUT_LEN, INPUT_LEN; RESTORE CURRENT COMMAND LINE LENGTH 
MOVC3 UT_LEN,= : WE ARE CONTINUING WITH THE CURRENT 
SAVE_INPUT_BUFFER,- t COMMAND SO RESTORE THE CONTENTS OF 
INPUT_BUFFER : THE INPUT BUFFER TO ITS PRIOR STATE 
RET 
15$: 
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«SBTTL PAGE_WAIT = GIVE END-OF-PAGE PROMPT ON SCREEN 
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SIGNAL 0,EXITCMD 
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; EXIT AND ERASE SCREEN 
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SYSTEM DUMP ANALYZER MAIN PROGRAM. SEP=1984 01:32: AX/VMS Macro V04-00 Page 23 
NEW_PAGE = BEGIN A NEW PAGE ON THE LISTI "er es 9 84:33:88 SDA ERCIMATW.MARSS . (it) 
] d 938 .SBTTL NEW PAGE = BEGIN A NEW PAGE ON THE LISTING 
707 = 940 ; 
107 341 : NEW_PAGE 
707 348 ; THIS ROUTINE WILL CAUSE A NEW PAGE TO BE WRITTEN AND 
4 i ate ; WILL OUTPUT THE PAGE HEADING AND CURRENT SUB-HEADING. 
70r 946 ; INPUTS: 
oF 7 323 3 
f f 948 : PAGE_NUMBER = CURRENT PAGE NUMBER 
a , a3 OUTPUTS: 
8 7 9513 
707 93¢ ; PAGE_NUMBER IS UPDATED 
0707 953; LINE-COUNT IS INITIALIZED 
0707 954; 
0707 955 ;--- 
O70 956 
707-957 -ENABL LSB 
0707 +958 
0000 Bo 223 ENTRY NEW_PAGE,“M<> 
00000000'EF D5 0709 961 TSTL SUB_HEADING ; ANY SUB-HEADING? 
OD 13 O70F 96¢ BEQL 3 SKIP CHECK IF NOT 
00000020'EF OO000001C'EF D1 0711 96 CMPL LINE_COUNT,HEADING_LINES ; ANY NEW LINES BESIDES TITLE? 
6A 13 gric 966 BEQL 90$ ; IF NOT, SKIP PAGE EJECT 
FF1S CF 0O FB Orie 966 CALLS #0,PAGE_WAIT ; GIVE BOTTOM OF PAGE PROMPT 
OOOOOOIC'EF D4 072 967 CLRL LINE_COONT ; CLEAR BEFORE ANYTHING ELSE 
0000018'EF 06 0729 968 INCL BAGE “NUMBER ; INCREMENT PAGE NU 
0000000C "EF D5 O7er 969 TSTL QUTPOT. FILE ; CHECK IF LISTING FILE 
D 13 0735 £970 BEQL 5 3; NO HEADINGS 
0737 971 PRINT 0 "> : PRINT FORM FEED 
QOO00018"EF DD 0744 of¢ PUSHL “ete 
OOOOOO2ZC'EF 7F O74A 97 PUSHAQ CURRENT 
8720 974 PRINT 2,< X/ORS" i. 0 -- System Ouse analysis: tt tt SAS!_!_! Page !UL> 
00000000'EF  7F 730 975 PUSHAQ Sin. HEAD! NG ; SECTION HEADING 
076 976 PRINT 1,<TAS> 
0770 «6977 SKIP 3 ; 3 BLANK LINES 
0779 978 60$: 
00000000'EF 05 0779 979 TSTL HEAD ING_ROUTINE ; ANY HEADING ROUTINE? 
07 13 O77F 980 BEQL 3 NCH IF NOT 
00000000'FF 00 FB 28) 981 ons CALLS #0,@HEADING_ROUTINE : CALL THE ROUTINE 
00000020'EF 0000001C'EF 0 t ; 3 MOVL LINE_COUNT,HEADING_LINES ; REMEMBER # HEADING LINES 
794 985 50S: 
794 9 § ; SKIP SUB=HEADING IF NOT SCREEN ORIENTED DEVICE 
E8 OOOOOADB'EF  00000000' ef £1 0794 9 BBC TTSV_SCOPE ,DVI_DEVDEPEND,90$ ; 
DD O7A 9 8 PUSHL ; FROM COLUMN 1 
0 DD O7A2 9 PUSHL ; LINE 1 
00000000' GF 2 FB O7A4 990 ALLS NSGRSERASE _PAGE ; ERASE ENTIRE SCREEN 
00000000°EF  7F cA 931 PUSHAG i e, rHEADI > SECTION HEADING 
7E Q0000000'EF  3C 28 $38 WOVZUL S08 NE HEADING, -(SP) ; CHARACTERS IN HEADING 
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MAIN SYSTEM DUMP ANALYZER MAIN N PR OGRA ant Ig-$ po 1984 01:33:28 AX/VMS Macro vO4=00 
v04=000 PRINT == FORMAT AND PRINT A SINGLE LINE P=1984 03:32: SDA. SRCIMAIN.MAR; 
7p4 : .SBTTL PRINT == FORMAT AND PRINT A SINGLE LINE 
7D4 1002 : 
pe ! 5 PRINT 
704 1005 : THIS ROUTINE IS INVOKED FROM THE PRINT MACRO TO FORMAT 
7p4 6 : AND PRINT A SINGLE LINE. 
Zp 08 : INPUTS: 
704 1010: 4(AP) = ADDRESS OF CONTROL STRING 
£b4 if : 8(AP) = FAO PARAMETERS (AS MANY AS NEEDED) 
704 1 18 : OUTPUTS: 
0704 1014 : 
BfDe 1015 ; NONE 
704 1 18 : 
gre BN I 
0000 a7p4 1019 .ENTRY PRINT, *M<> 
08 AC DF O07D6 1021 PUSHAL 8(AP ; ADDRESS OF PARAMETER LIST 
000008B0'EF 7F O07D9 10 : PUSHAG LINE _DESCR : BUFFER DESCRIPTOR 
OO0002F9'EF DF O7DF 10 PUSHAL LISTTRABSW_RSZ : TO RECEIVE LENGTH OF LINE 
04 AC DD O7ES 1024 PUSHL 4(AP) + ADDRESS OF CONTROL STRING 
00000000'GF 04 FB O7EB 1025 CALLS #4,G°SYSSFAOL + FORMAT LINE 
F4'AF 00 FB Ore 10¢6 CALLS #0;B*°PUT_LINE + OUTPUT LINE 


F 10 
YSTEM P ANALYZER MAIN PROGRAM 16-SEP-1984 01:32: AX/VMS Macro v04-00 Page 
you~000 PUT LINE - OUTPUT A LINE TO THE LISTING met 84:33:88 YOAV ERCTAAIN. MARS? i | 
7F4 1 0 .SBTTL PUT_LINE = OUTPUT A LINE TO THE LISTING FILE | 
ore oR i 
a : PUT_LINE | 
7F4 1035: THIS ROUTINE OUTPUTS A SINGLE PRINT SINE TO THE LISTING 
7F4 1 s : FILE. THE NUMBER OF LINES ON THE PAGE IS ACCOUNTED FOR 
da AND A NEW PAGE WILL BE ISSUED WHEN THE PAGE IS FULL. | 
ae, 33 : INPUTS: | 
Me 4} : LINE_COUNT = NUMBER OF LINES ON CURRENT PAGE 
Orr e§ : OUTPUTS: 
O7F4 1045 : LINE_COUNT IS UPDATED 
O7F4 1 6 : 
Br Hieg 
pre 1983 -ENABL LSB 
O1FC Hi ENTRY PUT_LINE, “M<R2,R3,R4,R5,R6,R7,RB> 
7F6 105 MOVB =: #1, PUT_BUSY : t Busy’ - 
BH oo DOnOTC! 4 4 O7F 19a MOVAL LINE -COUNT, R6 : Ht ae OF LINE COUNT 
=, Ser tee ten ae | alone | RpeO TF TERMINAL OUTPUT 
QOO0000C'EF D5 0800 1057 TSTL | OUTPUT_FILE + OUTPUT FILE SPECIFIED? 
03 13 813 1058 BEQL 108 : BRANCH IF NOT 
57 01 00 0815 1059 a MOVL #1,R7 : R7=1 IF LISTING OUTPUT 
66 6 § 18 1004 "INCL (RO) ; ASSUME 1 LINE PRINTED 
oe fF asi, 1968 CPU RASSU_RSZ(RB),DVI_DEVBUFSIZ nc | LISTING FILE 
ee = : 5 : 1084 ahs, am ; CHECK IF OVER SIZE OF SCREEN 
LEQU ; 
+3 be ; ie oe INCL  (R6) : ACCOUNT FOR 2 LINES 
' y MP (R6) ,PAGE_SIZE 
ree oonoeeek tk RASS 068 ED BOR PRU VET Pa 
ow 82 0 1994 Bred 20$ ~ : BRANCH IF NO PAGE SIZE (FILE) 
8 A 1 2 MOVW  RABSW_RSZ(R8) ,-(SP) ; SAVE LINE LEN 
5E 0060018 BF F ; 107 SUBL2 #LIST~BUFFER_LEN, SP ALLOCATE SPACE FOR LINE 
6€  00000888'EF & BF : 48 oh move #U1ST_BUFFER LEN-LIST_ BURFER. (SP): SAVE LINE 
00000888" 7 MOVC3 #LIST_BUFFER_LEN,(SP),LIST_BUFFER ; RESTORE LINE 
ne «he 60 OO1se BF 4: é 2 i rs ADDL2 #LISTTBUFFER-LEN aye ; BEALLOCATE SPACE 
$00R8 As 1 4 MOVW (SP)+7RABSH_RSZ(R ) 3; RESTORE LINE LENGTH 
FAC 69 7 all RW 10$ : TRY AGAIN 
6C 57 EB f 1 ? ; L R7 ; BRANCH IF LISTING FILE 
oe 5 of 1 : MOVAB output R2 
2 sono ME UR ae PAN Hop eras 
athe oe R 108s spur ROD ; OUTPUT TO TERMINAL | 
Ti 1086 SIGNAL RMS, (R2) | 
| 
| 
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6 10 
TOTAE LISTING 'SoSEP=19B6 94:35,89 FeDAveRCHAATW.MARsy Page ¢, 


RABSL_STS(R2),100$ ; OUTPUT TO LOGFILE IF LOGGING ENABLED 
9 TLE + AND OUTPUT TO TERMINAL SUCCEEDED 
LOGRA 

RABSW Bes na) RABSW_RSZ (82) 

LINE BE ESCR+4,RABSL_RBF (R2) 

RMS, (R2) 

100$ 

(RB) ; OUTPUT RECORD TO THE FILE 

RMS, ( 


R8) 
#0, (SP), #*A* * ALIST_BUFFER_LEN,LIST_BUFFER 
RABS$W_RSZ(RB) ; RESET TO EMPTY LINE 
SUCCESS 
"Put Busy’’ and check for “C pending flag 
PUT_BUSY 
CTRCC_PENDING,110$ 


#0,CTRL_C_AST ; fake “*C operation 


H 1 
A Ac x ESERCTBEE B4:38:3 SDAVSRCIRATN.MAR;T He 


~SBTTL SKIP_LINES = SKIP ANY NUMBER OF BLANK LINES 
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THE BLANK LINES ARE OUTPUT 


SKIP_LINES 

; THIS ROUTINE WILL OUTPUT A SPECIFIED NUMBER OF BLANK 
; LINES TO THE LISTING FILE. 

; INPUTS: 

; 4(AP) = THE NUMBER OF LINES TO SKIP 

; OUTPUTS: 


.ENTRY SKIP_LINES, “M<> 


04 aC OD TSTL 4C(AP) : CHECK IF ALREADY DONE 
OF 1 ion BEQL ©: 908 
QOO002FO"EF  B4  - tm LIST+RABSW. RSZ ; EMPTY LINE 
FEC2 CF 00 F CALLS UT LINE ; : GUTPUT- A BLANK LINE 
F1 04 F ath SOBGTR ACA) ), 108 
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RET 


MAIN 
v04-000 


3 


AALBERS ourour TECSESSISRS SHISISG YANCYNE Mae. yO 1 oo a 


«SBTTL PRINT COLUMNS == PRODUCE COLUMNAR OUTPUT 


PRINT_COLUMNS 


Besed upon input parameters, tables, and action routine 1 ee this 
routine produces multi-column displays. This routine has 
following major features: 


o it is entirely input driven 
oO an potion rout tne my signal that the en it is preparing is not 
to be included in this Seeley, | his Witt result in the . 
successive column entries in that yin Be being moved 2. one row. 
© ragged bottoms of columns are properly handled. 
It is assumed that each column is to contain three sections, a text 


description of a value followed by the value followed by a seacer to 
the next column. 


INPUTS: 
(AP) number of oh pracy, C (AP)-((COLLS1/4)-1) gives the 
number of colum 
DATBAS (AP) base address for data structure against which offsets apply 
DATSVACA system virtual address of data structure 


oe ) 

; (used only on queue header processing) 

3 COLLS1 (AP) base address of the COLUMN_LIST for column 1 
8 COLLS1+4(AP) hase address + the COLUMN_LIST for column 

3 COLLS1+8(AP) base address of the COLUMN_LIST for column 


OUTPUTS: 

NONE 
Description of the COLUMN_LIST macro: 
Format: 


; BASE: COLUMN_LIST - 
; prefix, df-desc-size, df-val-size, df-sep-size, < 
; row 1 descri tion this column 
<string>, offset, type, desc-size,val-si b.see- 
3; row 3 descr pt ion this column 
<<string>,action, value, desc-size,val-size, Sep size? 
3; row 3 description this column 
<cstring>, offset, type.desc-cize,val-size,sep-size>, - 


an a a at a a a ss 8 © ss a as —» 2 = 2d —s 2 bd — 2s a ts as 4 4 ss $s 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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MA 
V 


N 
-000 


B 


RIN 
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10 
=="BRODUCE COLURNAR OUTPUT 'S-SEP-1986 05:35:59 ESDALSRCIMAIN.MARS1 Page i) 


prefix is the dete peryusture prefix 
df-desc-size is the default description seeing, size for this _ ooene 
df-val-size is the default value string size for this colum 
ernpenn size is the default seperator size for this column 
strin is the description string for an entry 
offse is the data structure offset name for the value 
(w/o the prefix) 
type is one of the fol Lowing FAO directives w/o the ‘'!"' 
A e lw. e $B. a: X oe XW, ’ . W, eo 
the Siig types ¢ cause conversion only if the 
NEQ, OW -NEO. OL -NEQ, XB_NEQ, XW_NEQ, XL_NEQ, 
8 Nee. OWN * Z2L7NEQ, UB- NEQ, UWINEQ, UL_NEQ, 


Sw Neg and SL_NEQ™ 
the fot lowing NEG, on codes are also available: 
Q eee mee ueue header (does not work 
with DO_COLUMN_ENTRY macro) 


action is an action routine name 

value is a longword value to be passed to the action routine 
desc-size over-rides df-desc-size on this entry 

val-size over-rides df-val-size on this entry 

sep-size over-rides df-sep-size on this entry 


Action Routine Inputs: 


Re value from the COLUMN_LIST entry 

R size of the value field for this entry 
address of a descriptor for the scratch string in 
which the FAO converted value is to be returned 


R11 base address of the data structure from DATBAS(AP) 
Action Routine Outputs: 
RO status 


lbs ==> use this entry 
loc ==> skip this entry 
R1 = R5 scratch 
all other registers must be preserved 


Action routines may also use the DO_COLUMN_ENTRY macro to access any 
of the conversion services availablé through the COLUMN_LIST type 
parameter. 
Invocation: 
DO_COLUMN_ENTRY type C,jump) 
Parameters: 
type me tyes ie ot laa valid in the COLUMN_LIST macro, except Q2, 
is 
jump JMP or SSB" so transfer to subroutine 


(JSB is aoe default: if JMP is used control does not return 
to the action routine) 


9 
9 _VIELD J FF : fields in FLAGS above: 
| <é0 ENTRI ES ~-> - 3 no entries on this Line 


’ : Out-of-Line code used during PRINT_COLUMNS setup 


§ PC_XIT: RET ; Zero columns - so exit. 


> 3 
6 ; PRINT_COLUMNS entry point 


K 1 
MAIN SYSTEM DUMP ANALYZER MAIN PROGRAM P-1984 AX/VMS 4e- 
yoL~000 PRINT COLUMNS “+ PRODUCE COLUBRAR ouTPUT 'SaSEp-1oee Rbias:8— PERAWaS Macro y06-00 Page ih, 
2 ] 0 : Inputs: 
1 : R address of the datum or its descriptor 

; f ! ; Rg field siz» (as input to the section reurine? 

937 1265 ° 

937 1 SOFFSET 4,POSITIVE,< - : A i : 

335 | 8 oKroae ve rgument List offsets 

937 1 98 DATSVA, - 

2 4 ! $3 COLLS1 = 

8 4 DATBAS: 

8 DATSVA: 
: f COLLS1: 
1271 
937 1 6 . SAVE 
0000 ! : ! a -PSECT LITERALS,EXE,NOWRT 

10C 1275 ONE_COL: 

: 3 i 6 STRING <!#AC'MAS!#® > 

150 1599 NUE Case te; tA nutl cAsele string 

00000000 00000000 9120 1280 «LONG 0, 0 Jab esp —s 
000087 4 : ee » RESTORE 

b 7 1284 SOFFSET -4,NEGATIVE,< - 3; FP offsets for stack scratch: 
937 1285 <LINE_CTRSTR, 8>, - : 1 Line FAO CTRSTR descriptor 
0937 1 § NUCOCS © : number of columns 
0937 1 : SCRATCH SIZE, - ; size of one scratch string 
0937 1288 COLLST_BASE 3; base of COLUMN_LIST pointers 
937 1289 COLSCRATCR “BASE, ; base of per-column scratch 
937 1290 3 pointers 

937 1291 LAGS, : flags 
8 4 ' 35 CSTACK_LEN, > - ; end of stack storage 
EEO NUMCOL: 
FFE SCRATCH SIZE: 
FFE COLLST_BASE: 

FFES4 COLSCRATCH BASE: 

FFE FLAGS: 

Aa Q STACK_LEN: 

937 

937 

937 

937 

937 

937 

937 

937 

937 

3H 

9 

9 
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MAIN SYSTEM DUMP ANALYZER MAIN PROGRAM 16-SEP-1984 AX/VMS Macro V04-00 Pa 3 
v04-000 PRINT_COLUMNS == PRODUCE COLUMNAR OUTPUT g-3tF =}982 83 35: g§ SDA.SRCIMAIN.MAR; 9 - (8) 
a 
9 1 : PRINT_COLUMNS:: 
OFFC 2 ; 1319 11 WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
5B 6C 06 A 93A 1 \ SUBW3 #<<COLLS1/4>-1>, (AP), R11 ; Compute number of columns. 
F 1 $26 } 1? BLEQ PC_XIT ; Branch if no columns. 
5E £0 AE —E 0940 1315 MOVA STACK ay GNCsP). SP ; Allocate space on the stack. 
58 38 C 0944 1 1 MOVZWL R11, ; Zero extend columns count. 
FO AD B 00 94 ! ! MOVL R11, NURCOL CFP) 3; Save column count. 
52 58 Pe | FAS 84 1 i§ MULW ONE -£9l. R11, ; Compute size needed for the 
3 ‘fe Al 3 1320 ADDW #3, R2, R1 : Line FAO control strin 
51 hid < 03 8F CA O9 1321 BICL #*°XFFFFOO 0003, : (rounded to a longword). 
1 ge Bare 1 § SUBL R1, SP 3; Allocate space on the stack. 
F4 AD ba C 0961 1 MOVZWL R2, LINE_CTRSTR(FP) ; Setup size in descriptor. 
F8 AD SE 00 0368 | : MOVL SP, LINE_CTRSTR+4(FP) ; Setup starting address too. 
59 sone ise "tr 7D 34 1326 mMOva ONE -£OL. ; Get 1 column FAO descriptor. 
53 E 00 09 1327 MOVL SP, R ; Initialize output str. addr. 
63 6A 59 28 0973 1328 10S: MOVCS) R9, (R10), (R3) ; Make one copy of the single 
rF9 Sed nde ! 4 SOBGTR Rif, 10$ : col. string for every col. 
0974 135) SETUP_coL_SCRATCH: 
5B FO AD 90 O97A 1 § MOVL NUMCOL(FP), R11 3; Get number of columns. 
5A OC AC 20 444 1334 COLLS1(AP), R10 ; Get a COLUMN_LIST entry. 
59 OD AA OC AA 81 0982 1335 ADDB3 COLM$B_DESC SIZE(R10), = ; Assume that Value field can 
988 1 § COLM$B-VAL_SIZE(R10), R9 3; never be bigger than total 
59 OF AA 80 0988 1 ADDB COLES SEP _SIZECRIO), R9 :; _column size. 
59 93 80 098C 1 8 ADDB #3, R9 3; Round that to a longword. 
59 _FFFFFFO3 8F CA O98F 1 BICL @*XFFFFFFO3, R9 3; That times number of columns 
58 59 5B C5 0996 1340 MULL3 R11, R9, R 3; _is the size of scratch. 
AD 59 OD 99A 1341 MOVL R9, SCRATCH_SIZE(FP) : Save per-col. scratch size. 
a. fe 99E 1 4g SUBL R8, SP : Allocate scratch on stack. 
SA 5E p 9A1 134 MOVL SP, R10 3; Save starting scr. address. 
7E 59 D Q9A4 1344 108: mMOVQ R9, -(SP) 3; Make a descr pret. 
SA 59 c? 9A7 1345 ADDL Rg 3 Move to next slot. 
‘7 5B CO*F SAA 46 SOBGTR R11, 1 : Loop through all columns. 
E4 AD SE DO Q9AD 1 3 MOVL SP, COLSCRATCH_BASE (FP) ; Save scratch descriptors 
y+} ! 4 3 pointer. 
me} ! 3} SETUP_COL_INFO: 
50 O08 AC 9E€ Q981 1 25 MOVAB COLLS1-4(AP), RO 3; Get indexable base for 
9B5 1354 ; COLUMN_LIST addresses in 
985 1355 3 argument Stet. 
51 FO AD 00 0985 1 § MOVL NUMCOL(FP), R1 3 Get columns ¢ 
6041 OD 989 1 10$: PUSHL CHO) ERT 3: Init sotuan {ist ye on 
2 F 9BC 1 8 SOBGTR R1, 10% 3 the stack. 
E8 AD —E 00 ae ' MOVL SP, COLLST_BASE (FP) 3; Save ae addr. for pointers. 
5B 04 AC 00 a3 ' 7 MOVL DATBAS(AP), R11 ; Get data structure base addr. 
9¢7 (1 eg LINES_LOOP: 
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MAIN SYSTEM DUMP ANALYZER MAIN PROGRAM 16-SEP-1984 232: ‘AX/VMS Macro Vv04-00 P 3 
v04-000 PRINT_COLUMNS == PRODUCE COLUMNAR OUTPUT mise} 84:33:88 YODA ERCIMATW.MaRS4 = ATS 
SA FO AD he 9C7 136 SUBL3. #1, NUMCOL(FP), R10 : Initial columns counter. 
EO AD 84 ‘3 45 / d BISL #FCAGS_M_NO_ENTRIES, FLAGS(FP) : Initially, no entries made. 
9D 1 : COLUMN_LOOP: 
59__ E8 BD4A 0 0900 1 MOVL eco. st BASE(FP)CRI0J, RY ; Get current COLUMN_LIST ptr. 
7 4 A 0905 1 MOVZBL COLM$B_SEP_SIZE(R9), =(SP) ; Assume a null entry 
00000120'EF F 0909 1 PUSHAB NULL_ASC 3: for this column. 
5 DA A Q9DF 137 MOVZBL COLASB_VAL_SIZE(R9), RS ; Also, setup val. size for 
5 D O9E3 1 i PUSHL R : action routine. 
090001¢0°EF F Q9E5 137 PUSHAB NULL_ASCIC 
7E CAD) 9A pee ! oe MOVZBL COLMSB_DESC_SIZE(R9), -(SP) 
SEF 1 6 DO_COLLST_ENTRY: 
69 OD SEF 137 TSTL COLM$L_STRING(R9) 3; Is this List exhausted? 
441 9F1 1 4 BEQL C ; Branch if List exhausted. 
57 E4 BD4A 7E ue 137 MOVAQ a@COLSCRATCH_BASE(FP)CR10], R7 ; Get scratch descriptor for 
ars ! +4 3; this column. 
58 04 A9 DO O9FB 1 é MOVL OLMSL_SOURCE(R9), R8 ; Get data source descriptor. 
08 14 pore } i BGTR sobs ; Branch if its an astien rout. 
0064 30 OQ9FE 1385 BSBW DO_ONE COLUMN ; Convert data to ASCID. 
21 $5 E8 th 1 HH] BLBS RO, 400$ : Branch if value returned. 
09 «11 DA04 87 BRB 306s : Else, skip this entry. 
52 08 A9 00 Gade 1389 200$: MOVL FOL AL. ACT EG VALUE CAPD R2 ; Get supplied value. 
68 16 QAOA 1390 JSB (R8) 3 Call action routine. 
16 50 €8 BAS ; 4! BLBS RO, 400$ ; Branch if value returned 
10 gf BAe 1 3 300$: ADDL #COLMSK_LENGTH, R9 ; Else, move to the next entry. 
10 AE 3 Ag A Als 1394 MOVZBL COLM$B_SEP_SIZE(R9), 16(SP) ; Setup new separation, value, 
33 P 0 a2 aA “te 1 32 + ge EOLATO NAL ASIZE CRD). R5 3; and descriptor sizes. 
6E OC AQ GA OAIF 1 39 MOVZBL COLM$B DESC_SIZE(R9), (SP) 
CA 11 " ; 1 43 BRB DO_COLCST_ENTRY : Try processing this entry. 
OC AE 57 00 BA 5 1400 400$: MOVL R7, 12(SP) 3; Replace null ASCID for value. 
04 AE 69 DO OA29 1401 MOVL COLMSL_STRING(R9), 4(SP) : Replace descriptive text too. 
EO AD 01 CA OA2D 1406 BICL #FLAGS M_NO ENTRIES, FLAGS(FP) ; Indicate an entry was made. 
E8 BD4A «859 10 C1 OA3I 148 ADDL3 #COLMSR_CENGTH, R9, - ; Setup next COLUMN_LIST entry 
A t 14 4 @COLLST~BASE (FP) CRIO} : in pointer table. 
A37 14 $ NEXT_COLUMN: 
96 SA F4 " [ \¢ SOBGEQ R10, COLUMN_LOOP 3; Loop till all columns done. 
ASA 14 5 PRINT_A_LINE: 
A3A 1410 ASSUME FLAGS_V_NO_ENTRIES EQ 0 
23 €0 AD 3 ASA 1411 BLBS FLAGSTFP) , ALL_DONE : If no entries made, all done. 
52 FO AD OS C5 OA f 1418 MULL3. #5, NUMCOL(FP), R2 : Compute number of FAO args. 
Ads 1413 PRINTD R2, LINE_CTRSTR(FP) : Print the Line. 
ASD 1415 RESTORE_SCRATCH_DESCRIPTORS: 
1 FOAD OD A4D 1218 MOVL NUMCOL(FP), R1 3; Get number of columns. 
0 E4 AD OD AS1 141 MOVL COLSCRATCH_BASE(FP), RO : Get base of scratch desc. 
0 €C AD 00 0Aa55 1418 10$:  MOVL  SCRATCH_SIZE(FP), (RO)+ : Restore a size value. 
0 D ASO 141 TSTL (RO)+ ; Skip the address. 
F751 F5 OASB 1420 SOBGTR R1, 10$ ; Do all scratch descriptors. 
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MAIN SYSTEM DUMP ANALYZER MAIN PROGRARY "© p= 1a8e Bt: 35: ¢8 ani Vis Gace MS Page a) 


v04-000 PRINT_COLUMNS == PRODUCE COLUMNAR output | mile . 
ASE 14 
FF66 = 31 ase 1° BRW LINES_LOOP : Try for another Line. 
We 1424 ALL_DONE: 
04 OA61 1425 RET ; ALL done, so return. 


MAIN SYSTEM DUMP ANALYZER MAIN PROGRAM EP=1984 232: AX/VMS Macro V04-00 Page 35 
v04-000 PRINT_COLUMNS == PRODUCE COLUMNAR OUTPUT Mor = 3be 94:33:88 SDA. SRCIMA N.MAR;1 (15) 
A62 1427 ; Internal routine for PRINT_COLUMNS 
ne 14 3 : 
AG 
ne 1} 1; DO_ONE_COLUMN == process a single <= non-action-routine -- column entry 
A62 14 : ; This routine is the ois le column entry action routine used by 
A62 1434; PRINT_COLUMNS when a a structure offset is specified in place of an 
ne 1435 ; action routine. The Seeettiol data is located, converted to ASCII, 
* 1? § 3 and the resulting string descriptor is returned. 
Bae 1? § : PRINT _COLUMN_VALUE == action routine callback which processes one value 
Ag 1440 ; This is the target of the DO_COLUMN_ENTRY macro. 
BAe deag nuts 
OAb2 1444 : R2 address of datum or its descriptor 
OA62 1445 ; tage ay VALUE only) 
OA62 1446 ; R4 byte FAO_xxx velue 
BAe et 3 ( Rint "COLURN. VALUE only) 
QA62 1449 : R5 size of the value section for this item 
Ba? 1e20 3 R7 address of descriptor for a scratch string 
0A6 1426 : R8 minus offset in data structure which locates data 
OA62 1453 ; (DO_ONE_COLUMN only) 
OA62 1454 ; Rg address of the current COLUMN_LIST entry 
OA62 1455 ; (DO_ONE_ COLUMN only? 
OA62 1456 ; R11 data structure bess 
OA62 1457; (DO_ONE_COLUMN only) 
OA62 1458 ; 
BAe 1323 3; OUTPUTS: 
A62 1461 : RO = R4 scratch 
OA6 1296 : all other registers preserved 
OA62 1463 ; 
BAe gs 
A6 1496 ASSUME COLMS$K_FAO_AC EQ 0 ; Besure type dispatching and 
QA62 146 ASSUME COLMS$K_FAO_AS EQ 1 ; the FAO string table will work 
OA62 1468 ASSUME COLM$K_FAO_OB EQ ¢ 
OA62 1469 ASSUME COLMS$K_FAO_XB EQ 
A62 1470 ASSUME COLM$K_FAO_ZB EQ 4 
A62 1471 ASSUME COLMS$K_FAO_UB EQ 5 
A6 1026 ASSUME COLMS$K_FAO_SB EQ 8 
A62 147 ASSUME COLMS$K_FAO_OW EQ 
A62 1474 ASSUME COLMSK_FAO_XW EQ 8 
A62 1475 ASSUME COLMSK_FAO_ZW EQ 9 
Ab 1978 ASSUME COLMSK_FAO_UW EQ 10 
A62 147 ASSUME COLMSK_FAO_SW EQ 11 
A 1478 ASSUME COLMS$K_FAO_OL EQ \¢ 
A 147 ASSUME COLMSK_FAO_XL EQ 1 
A62 1480 ASSUME COLMSK_FAO_ZL EQ 14 
1 ASU SMHS Ee 
A 14 5 ASSUME COLMSK-FAO_OB_NEQ EQ <COLMSK_FAO_O0B + “Xx80> 
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N PROGRAM” 
COLUMNAR OUTPUT 


BRW DO_QUEUE _HEADER 


DO_ONE COLUMN: 


PRINT = COL VEN VALUE SS 


O$: 
0$: 


40S: 


41$: 


43$: 


45$: 
49$: 
70$: 


SUBL3 = RB, 


"SSEp=19be 05:30:89 


MOVE COLMSB. Vegh? _FAO(R9), 


ICL #°XFFFFFFBO, R4, R3 
CMPB R3, #COLMSK_FAO *a2 
BEQL SHOR 
CMPB Rs #COLMSK_FAO_AS 
BGTR 40% 

BLSS 20$ 
MOVZWL (R2), R1 

RB 30$ 

MOVZBL (R2), R1 

BL sR1, RS 

BRW 70$ 

DISPATCH R4, types8. prefix=COLMSK_FAO_, 
<0B_NEQ,41$>, - 
<XB_NEQ,41$>, - 
<7B_NEQ,41$>, - 
<UBNEQ,41$>, - 
<SB"NEQ,41$>, - 
<OW"NEQ,43$>, - 
<XW"NEQ,43$>, - 
<27W_NEQ,43$>, - 
<UW_NEQ,43$>, - 
<SW7NEQ,43$>, - 
<OL_NEQ,45$>, - 
<XL“NEQ,45$>, - 
<7L_NEQ,45$>, - 
<UL=NEQ,45$>, = 
<SLINEQ,458> ~ 

MOVL (R2), R2 

BRB 70$ 

MOVZBL (R2), R2 

BNEQ 70$ 

BRB 49$ 

MOVZWL (R2), R2 

BNEQ 70$ 

BRB 49$ 

MOVL (R2), R2 

BNEQ 70$ 

CLRL RO 

RSB 

$FAO_S ctrstr = FAO TABLECR3), - 
outbuf = (R7J, - 
outlen = (R7), 
pi = R5, - 
p2 = R2 

SIGNAL 

RSB 
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SDA.SRCIMAIN.MAR; 1 (15) 
; Branch assist 


; Compute data value address. 
; Get FAO type for data. 


Pe Se Ge Se Se Se Fe Ge Se Be Se 


rie _NEQ from FAO type. 
Is this 3 queue header? 
Branch if queue header. 

Is data a value? 

Branch it data is value. 
Branch if data is ASCIC. 
Must be ASCID get its size. 
Go odiuas fill size. 

Get ASCIC size. 

Adjust string filler size. 
Go convert the data. 


5 Dispatch byte values for 


zero test 


Dispatch word values for 
zero test 


Dispatch Longword values for 
zero test 


ever yenine else doesn’t get 
ested. 
rere byte sized zero 


te 
arena tT 2 
mercere word "sized zero 


est. 
apenai if zero. 
Perform longword zero 


test. 
For zero, indicate that 


entry is to be skipped. 
Convert the data. 


Return 


MAP 
MP ANALYZER MAIN PROGRAM” 1984 01:32: AX/VMS v04-00 Page 
¥04~000 PRIN " * COLUMNS = PRODUCE COLUMNAR output | Ep 1984 5:35:88 SDA. SRCIMA N.MAR; 1 8) 


at Hi bo. QUEVE_HEADER = Action routine for queue headers 
: doubl eg uous header to see if the queue 
AF i : pps wetgs Fy ey ue 18 net ene Cyt he address of the first entry 
AFO 16 g ; in the queue is displayed (PRINT OLUMNS style). If the queue is 
. 1 : 3 empty, the word empty’ is displayed. 
AF i : ; yy address of queue header in local te i 
AFO 1608 ; size of the value section for this item 
AFQ 1609 ; R?7 address of descriptor for a scratch + ng 
AFQ 1610 ; R8 minus offset in data structure which locates data 
AF 1812 3 DATSVACAP) SVA of real data structure base 
AFQ 1612; 
: t 
BEE) rene coum_ wu 
AF § 
: Licit outputs 
Bar 181) 3 sg caluan touts: made in PRINT_COLUMNS table 
OArO 1619 
AFO 1620 QUEUE_EMPTY: 
hat 
BAER 46 a #COLMSK_FAO_XL, R4 ; Assume queue is not empty. 
53 «(08 Hi o 23 b800 i 5 SUBL3 itt At VACAP), R3 : Get SVA of queue header 
3 62 D1 QB0S 1626 CMPL i : Is the queue empty? 
07 12 0808 1627 BNEQ a2 ; hag ly tg ae 
" sae 01 35 OBOE ig 5 MOVE” a AS, R4 : and change output type. 
FF59 31 0B11 1886 90$: BRW PRINT_COLUMA_ VALUE ; Go output information. 


STRING <empty> 
| 


F 11 
MAIN SYSTEM DUMP ANALYZER MAIN PROGRAM 16-SEP-1984 01:32: AX/VMS Macro V04-00 Page 39 MAP 
v04-000 OPEN_OUTPUT == OPEN THE OUTPUT LISTING F moet 7 84:35:88 YOAV ERCTAAIN. Mans? 9° 16) v04 
B14 16 ; .SBTTL OPEN_OUTPUT == OPEN THE OUTPUT LISTING FILE 
B14 16 5: 
14 $ ; OPEN_OUTPUT 
14 18 8 : OPEN THE OUTPUT LISTING FILE AND SETUP TO 
B14 1639 : BO GIN LISTING OUTPUT. 
14 1640; 
14 1641 ; INPUTS: 
14 1646 : 
14 1643 ; OUTPUT_FILE = DESCRIPTOR OF FILE NAME 
14 18e¢ : OUTPUTS: 
14 1646 ; 
14 1647 : NONE 
1S 
14 1650 ° 
007C pete 193) ENTRY OPEN_OUTPUT, “M<R2,R3,R4,R5,R6> 
53 000002D7"EF 9 0816 1888 MOVAB LIST,R3 ; ADDRESS THE RAB 
52 3C AS OD iD 1654 MOVL  RABSL_FAB(R3),R2 : ADDRESS THE FAB 
54 «28 a2 «—0 08 l 1655 MOVL §FABSL-NAM(R2).R4 + ADDRESS THE NAM BLOCK 
08 5 1887 : CLOSE THE PREVIOUS LISTING FILE, IF ANY 
34 a2 95 0B 3 1889 . TSTB = FABSB_FNS(R2) ; WAS FILE ALREADY OPEN? 
22 13 0B28 1660 BEQL : BRANCH IF 
00000000'€F 00 FB OB2A 1661 CALLS #0,PRINT_INDEX : PRINT TABLE OF CONTENTS 
san ies SRE. Gna J iserh aime je 
4C 1664 ; » 
test 1665 ; DETERMINE IF PARAMETER GIVEN IS A TERMINAL OR LISTING DEVICE 
34 A2 0000000C EF 4C 1867 20$: MOVB  OUTPUT_FILE,FABSB_FNS(R2) : SET FILE NAME 
2C A2 00000010'EF 00 0B54 1668 MOVL OUTPUT" FILE+4,FABSL_FNA(R2) 
B5¢ 166 ALLOC NAMSC_MAXRSS,RS ; ALLOCATE STRING BUFFER 
OC AS «004 ASOD 6f 1670 MOVL  4(R5)7NAMSL_ESA(R4) : SET ADDRESS OF BUFFER 
0873 1671 SPARSE (R2) 9) : GET EXPANDED FILE NAME | 
65 OB AG 9A BBE 1898 MOVZBL NAM$B_ESL(R4),(R5) ; SET LENGTH OF STRING 
0B92 1674 ALLOC DIBSC7LENGTH,R6 > ALLOCATE GETDEV BUFFER 
Ad 1675 SGETDEV.S DEVRAM=(R55 ,PRIBUF=(R6S 
51 04 A600 BCI 1899 MOVL 4(R6),R1 : ADDRESS THE BUFFER 
42 BF 404 A1 91° «OBES 1678 CMPB DIBSB_DEVCLASS(R1) ,#DCS_TERM > TERMINAL? 
6c «(13 cA 1679 BEQL $ : BRANCH IF SO | 
c¢ 16 1: OPEN LISTING FILE AND SET PAGE SIZES | 
ce fees | SCREATE (R2) ; OPEN LISTING FILE 
D5 1684 SIGNAL RMS, (R2) 
E7 1685 SCONNECT (R$) ; CONNECT TO OUTPUT STREAM | 
FO 16 6 SIGNAL RMS, (R3) | 
00008" # G2 EE SERS Ske SIREE 2aREaretHRE® Nw AM gunmen page zt | 
00000018°EF D4 OC11 16 5 CLRL —« PAS E_NUMBER : START AT PAGE j | 
| 
| 
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R MAIN PROGRAM’ 4 X/VMS Macro V04- 
THE OUTPUT LISTING . | sets 7 83: 33 g§ YODA SDA. SRCIMAIN. MAR; = 
LINE_ COUN : NEW PAGE 
KStrim.§ TE RGUPe CURRENT TIME : GET CURRENT DATE/TIME 
CALLS =o! DUMMY _ INDEX : PRINT DUMMY TABLE OF CONTENTS 
OPEN TERMINAL FOR OUTPUT AND SET PAGE SIZES 
CLRL OUTPUT FILE ; SIGNAL TO USE TERMINAL 
CLRB_ ——« FABSB_FNS(R2) K NO LISTING FILE OPEN 
MOVZBL D DIBSL~ DEYDESEND#3(R1), RO’ ; GET PAGE SIZE 
SUBL PROMPT LINES ,RO,PAGE SIZE : SET PAGE SIZE 
CLRL CINE COONT ; NEW PAGE 
OVL #1,R0 : SUCCESS 
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MAIN SYSTEM DUMP ANALYZER MAIN PROGRAM 16-SEP-1984 01:32: AX/VMS Macro v04-00 Page 41 MAF 
v04-000 OPEN_LOG == OPEN THE LOGGING FILE eit 84:33:88 ODA SRCIMATN.MARSS . 


-SBTTL OPEN_LOG == OPEN THE LOGGING FILE 


cap 1588 
(57 17 : : 
' 4 if : OPEN_LOG 
c f 1711 : OPEN THE LOGGING FILE AND SETUP TO BEGIN LOGGING. 
c f 1718 : INPUTS: 
C f 213 ; LOG_FILE = DESCRIPTOR OF FILE NAME 
57 1919 : OUTPUTS: 
C57 1018 3 
(57 (1719 : NONE 
coo 1780 
¢57 17 : z 
007¢ C52 7 ; -ENTRY OPEN_LOG,“*M<R2,R3,R4,R5,R6> 
53 099003¢8 "EF 9€ 0C59 1725 MOVAB LOGRAB,R3 : ADDRESS THE RAB 
5 3¢ A300 9¢60 17 é MOVL RABSL_FAB(R3) ,R2 + ADDRESS THE FAB 
54 28 A200 O64 17 f MOVL FABSL-NAM(R2),R4 + ADDRESS THE NAM BLOCK 
aces 7 3 : CLOSE THE PREVIOUS LOGGING FILE, IF ANY 
34 A295 «0C68 «(1731 * TSTB = FABSB_FNS(R2) : WAS FILE ALREADY OPEN? 
1B 13 oc6B 17 : BEQL + BRANCH IF 
c6D 17 SCLOSE (R2) : CLOSE LOGGING FILE 
C 6 7 4 SIGNAL RMS, (R2) 
i 7 $ : DETERMINE IF PARAMETER GIVEN IS A TERMINAL OR LOGGING DEVICE 
34 A2 00000006'EF 90 OC 1738 20$: MOVB LOG_FILE,FABSB_FNS(R2)_; SET FILE NAME 
2C A2 00000008'EF 0 90 1739 MOVL LOG-FILE+4,FABSL_FNA(R2) 
(98 1740 ALLOC NAMSC_MAXRSS : ALLOCATE STRING BUFFER 
0C AS) «004 AS) «DO sCOOCAA «(1741 MOVL  4(R5) NAMSL_ESA(R4) : SET ADDRESS OF BUFFER 
OCAF 1248 SPARSE (R2) : GET EXPANDED FILE NAME 
(BB 174 SIGNAL RMS, (R2) 

65 OB AG 9A OCCA 1744 MOVZBL NAM$B_ESL(R4),(R5) ; SET LENGTH OF STRING 
cce 1745 ALLOC DIBSC7LENGTH,R6 ; ALLOCATE GETDEV BUFFER 
ced 1746 SGETDEV_S DEVRAM=(R55 ,PRIBUF=(R6 

51 04 A6 DO OCFD 1748 MOVL 4(R6),R1 : ADDRESS THE BUFFER 

42 BF O04 Al 91 91 174 CMPB D{BSB_DEVCLASS(R1) ,#DCS_TERM > TERMINAL? 
37.13 p : 1730 BEQL ; BRANCH IF SO 
p08 1752: OPEN LOGGING FILE 
3 i $08 
¢ 1755 = ~—s SIGNAL RMS, (R2) 
p23 17 é SCONNECT (R$) : CONNECT TO STREAM 
a p ¢ V7 SIGNAL RMS, (R3) 
D3F 1759 ; 
p i 1760 ; LOGGING AT THE TERMINAL IS NOT ALLOWED SINCE THIS IS BEING DONE ANYWAY 
34 A296 «OD3F 1562 S0$:  CLRB  FABSB_FNS(R2) ; MARK NO LOGGING FILE OPEN 


SCREATE (R2) ; OPEN LOGGING FILE 


MAIN 
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SYSTEM DUMP ANALYZER MAIN PROGRAM. " i sett 9 03:35:88 AH Macro i Page att 


OPEN_LOG == OPEN THE LOGGING FILE SEP-1984 SDA.SRCJMAIN.MAR 
QO000004"EF 04 0D42 1763 CLRL LOG FILE ; MARKING NG EN 
8 64 y4 Gods 1786 eye HeRO ; SUCCESS ce 
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«-SBTTL CLOSE_LOG -- CLOSE THE LOGGING FILE 


CLOSE_LOG 

CLOSE THE LOGGING FILE IF ONE IS OPEN. 
INPUTS: 

LOGFAB = LOGGING FAB 
OUTPUTS: 

NONE 


-ENTRY CLOSE_LOG,*M<R2> 


MOVAB LOGFAB,R2 ADDRESS THE FAB 
#1,R0 


MOVL 

TSTB FABS$B_FNS(R2) 3; WAS FILE OPEN? 

BEQL 20$ ; BRANCH IF NOT 

$CLOSE ; CLOSE LOGGING FILE 

SIGNAL RMS,(R2) 

CLRB FAB$B_FNS(R2) 3; CLEAR INDICATERS THAT THERE 

cLaL LOG_FILE 3 £3 A Lgeeine FILE AND THAT LOGGING IS 


MAP 
v04 


K 11 
CLOSELOG =~ CLOSE THE LOGGING FiLe  'S-SEP=198¢ 64:35:59 ESDAVSRCTAAIW.MARiS Peer Sty v0. 
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MAIN SYSTEM DUMP ANALYZER MAIN PROGRAM 16-SEP-1984 01:32: - 
Symbol table oe ae 4 84:35:88 Lee Hace Mansy once (34) 
ONE COL 10C R 7 START 9C RG 6 
OPER_FILES igs RG STARTU 4R 88 
OPEN_LO C57 RG STARTUP_LEN = 7 
OPEN" OUTPUT 14 RG STB B RG 4 
OuTPOT 34 RG 4 STBF RG 4 
OUTPUTF R 4 STB_BUFFER = RG 3 
OUTPUT _FILE of RG STB-BUFFER_LEN = 
PAGE _NOMBER 18 RG STSSK_SEVERE z 4 
PAGE_SIZE 4 RG STS$S_SEVERITY s 3 3 
PAGE WAIT § RG STSSV-SEVERITY = 0000 
PRINT ihe | (08 SURBOS ENT ITY 90000031 R~ 96 
PRINT_A_LINE Kn a 4 he ta aeereeee GX 
PRINT_COLUMNS 0000938 RG 6 SYSSASSIGN aeeeeeee GX 6 
PRINT_COLUMN_VALUE OOOOA6D RG 6 SYSSCLI eeeeeeee 6 
PRINT” INDEX teeereee § x 6 SYSSCLOSE eeeneeee GX 6 
PROMPT_LINES = 00000003 SYSSCONNECT aeeneeeee GX 06 
PUT_BUSY 00004D R 02 SYSSCREATE aeeeneee GX 6 
PUT-LINE i F4 RG 6 SYSSEXIT eeeneeee GX 06 
QHDR 00 Abe R 06 SYSSFAO eeeeneee = X 06 
QUEUVE_EMPTY OOOOAFO R 06 SYS$FAOL eeeneeee XX 06 
RAB$B_RAC = $8 it SYSSGETDEV aeeeeeee GX 06 
RABSC_BID = 00000001 SYSS$GETDVI eeeaeeee GX 36 
RABSC_BLN = 00000044 SYSSGETJPI aeeeeeee GX 6 
RABSC_SEQ = 00000 00 SYSSOPEN eeeeeene GX 06 
RABSL_CTX = 0000001 SYSSPARSE eenenere GX 06 
SL-FAB = 0000003¢ SYSS$PUT teeeeene GX 06 
RABSL_RBF = 000 844 SYS$Q10W aeeeeeee 06 
RABSL_ROP = 8808 004 SYSSSYSTEM 00000071 06 
RABSL_STS = 00000008 SYSINPUT 0000088 06 
SL-STV = aisaieas SYSTEM ENTITY 90088 0 06 
RABSV_B1O = 00000008 TIME_BOFFER 000034 02 
RABS$V_WBH = ee TT$V~ SCOPE teeeeeee = X 06 
$W-RSZ = 00000022 TT_CRAN OOOOA9F RG 03 
AD_SY rekerenre VERSION_FLAGS 0000000 RG 02 
REPEAT_KEY OOOOA8C 
RESTORE_SCRATCH_DESCRIPTORS 0000A4 
RMS$_EOF 
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SMG_PROMPT 
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H Psect Synopsis 3 


PSECT name Allocation PSECT No. Attributes 


.- ABS 00000000 " 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS FFFFFFFC ¢ -»> QO1¢ +1.) NOPIC  USR CON ABS LCL NOSHR' EXE RD WRT NOVEC BYTE 
SDADATA 4 ed 3 i. Tes § ( ¢°) NOPIC USR CON REL LCL NOSHR NOEXE' AD WRT NOVEC LONG 
BUFFERS QOOOAEB ( 2795.) ( ») NOPIC  USR CON REL LCL NOSHR NOEXE RD WRT NOVEC BYTE 
RMSBLOCKS B88 8 , = Water 4 ( 4.) NOPIC  USR CON REL LCL NOSHR NOEXE RD WRT NOVEC LONG 
a RMSNAM 0 § ( 8° 5 ( 5.) NOPIC  USR CON REL LCL NOSH EXE RD WRT NOVEC BYTE 
MAIN 0000008 ( 3458.) 86 ( 8. NOPIC USR CON REL LCL NOSHR- EXE RD NOWRT NOVEC LONG 
LITERALS QOOOO1FA ¢ 506.) O07 ¢( 7.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
Goueseeueseseusesscoonses 
! Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 6 00:00:00.06 00:00:01.06 
Command processing 138 aie So Ee Bo 3008-18 
Pass 1 646 00:00:21.1 Beret -00 
Symbol table sort 0 Se SE SH 0: $307 +8) 
ass 2 327 00:00:04.84 00:00:18.22 
Symbol table output 37 BF BD On Be 00:00:00.64 
Psect synopsis output 3 00:00:00.03 00:00:00.03 
Cross-reference output 0 Bp 88:88 00 eS Ba ee 
Assembler run totals 1189 00:00:28.71 00:01:45.3 


The working set Limit was 2400 pages. 

170200 bytes (333 pages) of virtual memory were used to buffer the intermediate code 
There were 100 pages of symbol table space on yecetee to hold 1921 non-local and 111 
1799 source Lines were read in Pass 1, "atin ts object records in Pass 2. 

74 pages of virtual memory were used to define 65 macros. 


local symbols. 


See Sr er nen ese o enone se ances} 


Macro Library name Macros defined 


$255$DUA : so 3st at -MLB; 1 9 

$255$DUA 31 : 

$255$DUA28 it YSLi63 + Searchin MLB; 2 4 
Teta (all Libraries) 59 


2353 GETS were required to define 59 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:MAIN/OBJ=OBJ$:MAIN MSRC$:MAIN/UPDATE=(ENHS: MAIN) tEXECMLS$/LIB+LIB$:SDALIB/LIB 
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